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Abstract 


This paper describes a system of hardware and 
software which provides for the transfer of blocks 
of data between a VADCG Terminal Node Controller 
(TNC) and a CP/M system with a serial interface. 
Both the software to run in the TNC and in the CP/M 
system is included. The system provides’ block 
transfers, data transparency, flow control and error 
checking and retransmission in both directions over 
the interface. 


Introduction 


The software to implement the Link level of 
protocol for the VADCG Terminal Node Controller was 
developed in 1978 It is now in general use both in 
the J.S. and Canada and has even been implemented on 
other Terminal Node Controller boards. It has 
proven to be satisfactory for the purposes intended 
but many people recognize the need to implement the 
next higher level of protocol « the Packet or 
Network level protocol. 


There have been a large number of proposals a3 
to the form this protocol should take and I have 
made my own proposals in a paper published in the 
last Amateur Radio Computer Networking Conference. 
In spite of a large supply of proposals there is a 
distinct shortage of implementations. Part of the 
reason for this has been because of the need for 
some kind of consensus in the Amateur Radio 
fraternity. Notwithstanding this important concern, 
there is another reason why we don't have our 
Network level protocol implemented = it is a lot of 
work to get it going. 


‘What are the problems in implementing the 
Network level protocol?', you may ask. Well, unlike 
the Link level protocol which only had to be 
implemented to run in a TNC, parts of the Network 
level protocol have to be implemented to run in each 
microcomputer connected to the network. 
Furthermore, the TIP programs in the TNCs will have 
to be rewritten and some changes in the LIP programs 
are needled as well. In addition, the Network level 
protocol is much more complex than the link level 
protocol. think one of the main stunbling blocks 
is the need to implement the protocol on two 
separate systems before any testing can be done. 


Despite the above difficulties, I have begun 
the process of implementing the protocol and have 
broken the job down into steps that can be 
implemented and tested and then proceed to the next 
step. To alleviate the problem of having to make 
two implementations for different systems, T am only 
making one implementation for my C?/M system which I 
will hopefully be able to transport to another local 
Packeteer's CP/M system for testing In order to 
make this progran as transportable as possible t9 
other CP/M systems I am only using the 8080 
instruction set. 


The programs here are not really any nart nf a 
higher level protocol but the function they perform 
will %2 1eeded by any higher level protocol that is 
adopted. The microcomputer program called 'PACKET' 
is basically a set of drivers for the _ serial 
interface between the microcomputer and the TNC. 
The program implementing the higher level of 
protocol in the microcomputer is called the 
Transmission Control Program or TCP. The TCP will 
use these drivers to transfer blocks of data that it 
has prepared to the TNC and it will also receive 
blocks of data from the TNC using these drivers. 


The TCP is called upon by the programs running 
in the microcomputer to send data and receive data 
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to and from various points in the network. In order 
to do this job, the TCP adds a header onto the 
outgoing blocks of data and because the bits and 
bytes in this header have a meaning based on their 
position in the block of data, there must be a 
mechanism to show where a block starts and ends in 
the serial data streams being passed accross the 
interface between the computer and the TNC. This 
mechanism, was lacking in all the TIPs that I had 
access to. Also, since flexibility in the setting 
of these bits was needed and any 'kind of restriction 
on the data being sent across the interface was 
undesirable, there had to be a mechanism for data 
transparency. This mechanism, too, was missing in 
all the TIPs that I had access to. Also, since data 
was being sent both ways at high speed by 
there had to be a mechanism for 


microprocessors, 
flow control in both directions across’ the 
interface. Also, since my serial interface used 


long RS-232 cables in a noisy environment, T 
occasionally got bit errors in the data especially 
at the higher speeds so I needed to have error 
detection in this interface. In some environments, 
error detection may not be necessary but I decided 
to play it safe and include it. Finally, error 
detection is not of much use unless you can correct 
the errors so I have incorporated a retransmission 
mechanism. 

provides the 


TO summarize = the interface 


following: 


1. Block recognition. 

2. Data transparency. 

3. Flow control (in both directions) 
4. Error detection. 

5. Error correction. 

A 


block has the following format: 


The combination DLE-STX (ASCII Data Link Escape 
and Start of Text) indicates the start of a 
transparent block of data and the combination DLE- 
ETX indicates the end of the transparent block. To 
provide for data transparency a_ ‘'byte_ stuffing 
technique is used = any time transparent data occurs 
that looks like a DLE, then an extra DLE is stuffed 
into the data stream. Therefore, the two byte 
combination DLE-DLE represents only a single data 
byte of 10H. 


Flow control is accomplished using some 
hardware features of the TWC and the serial 
inter face on the nicrocomputer. The RTS (Request to 
Send) and CTS (Clear to Send) lines are cross 
connected and controlled by the programs. ‘When the 
output line is high it means 'You can send data to 
me now'. When the output line is low it means 
Don't send any data to me now.' 


Error detection is accomplished using the two- 
byte CRC (Cyclic Redundancy Check) characters 
following the FTX character in the block. T am 
using the following polynomial to generate the CRC 
bytes: 


x16 + xt + x? + 1 

This is the usual polynomial used for 
synchronous protocols such as IBM BISYNC but is _ not 
the one suggested by the CCITT. O transmit, the 
crc calculation is done on all transmitted 
characters after the STX and up to and including the 


ETX charactec. The stuffed bytes are included in 


the calculation and after the STX is processed, two 
bytes of zeroes are processed. On receive, the 
calculation is the same except that the two CRC 
bytes are used instead of the zero bytes and the 
result of the CRC calculation will then come out to 
zero if everything was received correctly. 


The error correction mechanism employed also 
utilizes some of the hardware features of the TNC 
and the microcomputer. The DTR (Data Terminal 
Ready) and the DSR (DataSet Ready) lines are cross 
connected between the INC and microcomputer. 
Whenever one side receives a block correctly, it 
reverses the state of its output line. If the other 
side does not detect the transition then, after a 
timeout, it retransmits the block. 


Hardware Requirements 


In order to use the program called 'TIPTTC' 
which runs in the VADCG TNC, you will need a VADCG 
TNC with the serial interface installed and an RS232 
cable with wires going to the following pins 
installed (2,3,4,5,6,7 and 20). 


In order to use the program called _ 'PACKET' 
which runs in a CP/M system, you will need to have a 
serial interface capable of handling 8=-bit 
characters, direct software control of two lines of 
RS-232 levels, and the ability to read two input RS- 
232 lines with the software. Most CP/M systems have 
this capability. It is true that I could have 
written this software to only require the data lines 
(and I may yet do this) and the software would be 
slightly more transportable but more complicated and 
a little less efficient. The flow control and 
acknowledgment systems work very well because the 
software in the TNC is alerted by the interrupt 
system almost instantly when there is any change in 
level of the interface lines. 


Software Requirements 


The 'TIPTTC' program should interface with any 
of the common LIP programs being used with the VADCG 
board. I can only think of one thing to watch out 
for = the program uses variables in the CCA (Common 
Communications Area) from displacement 40H to 54H so 
you should check your LIP's usage of these areas and 
relocate them if your LIP uses part of the same 
area. Also, make sure your stack does not get 
extended down as low as displacement 54H in the CCA. 
This is a 'vanilla' TIP and in addition to the 
features described above, it only has provision for 
connect and disconnect. If you use this TIP you 
will have to do without those special functions you 
previously had. The other alternative is to add the 
functions to this program yourself. If you take 
this latter option I would very much like to hear 
from you as well as anyone else who uses these 
programs. I like to get 'feedback.' 


The 'PACKET' program only needs a CP/M system 
with the aforementioned hardware features and some 
configuration modifications described in the next 
section. 


Confiauration Requirements 
A. TIPTTC 


A.1 At label 'BAUDRAT' the Baud rate may have 
to be changed. I am using 4800 Baud. In general it 
is best to have the rate as high as is reliable and 
convenient and should be 1200 or greater. However, 
lower Baud rates than 1200 would work as well. 


A.2 At label '‘ACKTO' there is a number which is 
related to the amount of time the TNC waits before 
retransmitting the block if no acknowledgment is 
received. This value has not been optimized from 
the first trial value. It is very non-critical and 
the value I chose for my system seems to work very 
well. It is probably quite a bit slower than 
required. You may experiment with different values. 


A.3 At label 'RIMBUF' change the call sign to 
your own and if it is less than 6 characters, pad it 
on the right with blanks. Also, use upper case 
characters. 


A.4 At label "TERMNO' change your node number 
to whatever you want. 


B. PACKET 
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Be1 In the section headed 'HARDWARE PORT 
EQUATES' you will have to change the port addresses 
to match the ports on your system. 

B.2 In the sections headed 'CONTROL PORT BIT 
MEANINGS' and ‘STATUS BIT MEANINGS' you will have to 
change the equates to match your system. 

B.3 At label 'UARTINIT' change the code to 
initialize your serial interface UART to operate 
with 8 data bits and no parity bit. Also make the 
output lines going to pins 4 and 20 on the TNC are 
low. (The assumption here is that the jumper plug on 
the INC is wired straight across) 

B.4 At label 'SETRTS' change the code so that 
it makes pin 4 on the TNC end of the cable high. 

B.5 At label 'CLEARRTS' change the code so that 
it makes pin 4 on the TNC end of the cable low. 

B.6 At label 'FLIPDTR' make sure the code 
reverses the level on pin 20 of the TNC. 

Be7 At label 'TESTTBE' test if data can be sent 
out to the UART and return non-zero status if it 
can. 


B.8 At label 'TESTRDA' test if data is 
available from the UART and return non-zero status 
df 2t) ais‘ 

B.9 At label 'TESTCTS' test the level of pin 5 
coming from the TNC and return non-zero status if it 
is high. 

B.10 At label 'TESTDSR' test the level of pin 6 
coming from the TNC and compare it to the last 
tested level. If the value has changed, return non- 
zero status. 

B.e11 In routine 'KEYTEST' change the code to 
Look for a character to be entered on your keyboard 
and if there is none, then go to 'OUTTEST'. It will 
probably have to be changed because my keyboard uses 
inverted logic. 


Qperation 


Although the importance of the "PACKET' program 
lies in the features provided by the drivers in it, 
I have added 25 instructions which allow the program 
to provide an immediately useful function. It will 
allow the user to use the keyboard and screen 
display in the CP/M system as if it were a terminal 
connected directly to the TNC. Because of the power 
of the driver code, it is a relatively trivial 
matter to add this function. Similarrily, a program 
to transfer a file from the system or to the system 
is very easy to implement using the drivers. 


To use the program as a terminal simulator, 
simply type in a line of data on the keyboard, the 
line will be sent in a block to the TNC when the 
line feed key is pressed. While data is being 
entered after the first character, no blocks will be 
received from the TNC. While a block is being 
received from the TNC, the keyboard is not tested so 
a line that you enter will not be mixed with data 
coming from the TNC. 


To connect, type the Call sign in upper case 
(which must be padded with blanks on the right if it 
is not 6 characters long) followed by control-A and 
then hit line feed to send it to the TNC. To 
disconnect, type any 6 characters (except for line 
feed) followed by control-B and then hit line feed. 
Sorry for this kludge but it is only temporary as I 
am planning to completely change the connect- 
disconnect procedures when I write the Transmission 
Control Program which is the next step in 
implementation of the Packet level protocols. 


Summary 


I hope these programs help those who are 
working on the implementation of the higher level 
protocols for an Amateur Radio digital 
communications network. It seemed to me that a 
program with these features would have to be one of 
the first steps in any kind of implementation but so 
far I have not heard of one. Perhaps someone out 
there has already written one and I have duplicated 
his effort. If so, then we are not doing enough 
advertising about what we have done. That is why I 
have taken this effort to disseminate the program. 


The program listings here represent programs 
that have actually been running successfully so any 
problems encountered in transporting them to another 
system should be associated with the diffferent 
environment and not with defects in the code. I can 
supply the programs on standard SS-SD CP/M format 
diskettes if necessary. Please enclose $3.00 with a 
blank diskette or $8.00 without a diskette when 
making your request. You will find the listings for 
the two programs on the following pages. 

* CP/M is a trade mark of Digital Research 


HH MM gy 


wu nna ky & 


310903 
CD4301 
CD3501 
CA2301 
DBNO 
E602 
c20601 
DBN2 
CD3A01 
CD3A05 
FEOA 
cc 1005 


RERARAERAAREAEERERREREEREEERERREEAEREREEEAEEEEREREEEEEREK 


bade VADCG PACKET LEVEL TNC DRIVER FOR CP/M Sad 
ae BY DOUG LOCKHART, VE7APU 
RERRRREREREAAERE NEE RERERRENEEREREEREEEERERRERREREREEREEEED 


3 LAST CHANGED JANUARY 31, 


1983 


JANUARY, 1983 bedied 


RRREREERAAEEEREREEREREREARERARERAREEREREHEREEREERARERHEEEE 


THIS PROGRAM CONTAINS THE DRIVERS TO EXCHANGE TRANS- * 


IT USES THE REQUEST TO SEND (RTS) 


e 
* 
e 
* 
* 
ONLY DATA INFOR- * 
THE PROGRAM * 
* 

t 

e 

* 

® 


TO ACHIEVE DATA TRANSPARENCY 


IF THE TRANS=- 


DATA LINK ESCAPE 


SYNCHRONIZING CHARACTER 


* 
* PARENT BLOCKS OF DATA BETWEEN A CP/M OPERATING 
* SYSTEM AND A VADCG TERMINAL NODE CONTROLLER USING A 
* MATCHING PROGRAM. 
* AND CLEAR TO SEND (CTS) LINES FOR FLOW CONTROL AND 
* THE DATA SET READY (DSR) AND DATA TERMINAL READY 
* (DTR) LINES FOR ACKNOWLEDGEMENTS. 
* MATION IS PASSED ON THE DATA LINES. 
* USES 'BYTE STUFFING' 
* AND USES A CRC-16 TO DETECT ERRORS. 
*  MITTED DATA IS NOT ACKNOWLEDGED BY A CHANGE IN LEVEL 
* THEN THE BLOCK IS SENT AGAIN, 
PRRERRREEARRRE RARER ARE ERERE EERE ETREREERREREERREEEEREER ED 
MISCELLANEOUS EQUATES 
Los EQU 
3 
} ASCII EQUATES 
CR EQU ODH } CARRIAGE RETURN 
LF EQU OAH 3 LINE FEED 
DLE EQU 10H ? 
STX EQU 02H } START OF TEXT 
ETX EQU 03H 3 END OF TEXT 
SYN EQU 16H : 
F 3 PAD CHARACTER 


PAD EQU OFFH 
RARREEEAEREERRE REE RERRAARER ARETE AAEREAEERERRHEERERRER ERE 


a a 


UART DATA PORT 
UART CONTROL PORT 
UART STATUS PORT 
KEYBOARD DATA PORT 


NOT DATA TERMINAL READY 
NOT REQUEST TO SEND 
BAUD RATE SELECT 

BAUD RATE SELECT 

WORD LENGTH SELECT 
WORD LENGTH SELECT 

STOP BIT SELECT 

PARITY INHIBIT 


RECEIVE DATA AVAILABLE 
NOT KEYBOARD STROBE 
PARITY ERROR 

FRAMING ERROR 

OVERRUN ERROR 

NOT DATA SET READY 
NOT CLEAR TO SEND 
TRANSMIT BUFFER EMPTY 


RAAEEAEAAEEAREAEAAAHRARARERAEHREEHHRERRARAARARERALKRRARRARERE 


; HARDWARE PORT EQUATES 
DATA EQU 01H 
CONTROL EQU OOH 
STATUS EQU 00H 
KEYBD EQU 02H 
; CONTROL PORT BIT MEANING: 
DTR EQU 01H 
RTS EQU 02H 
BRSO EQU 04H 
BRS? EQU OSH 
WLS1 EQU 10H 
WLS 2 EQU 20H 
SBS EQU 40H 
PI EQU 80H 
3 
1 STATUS BIT MEANING 
RDA EQU 01H 
KSTB EQU 02H 
PE EQU 04H 
FE EQU 08H 
OE EQU 10H 
DSR EQU 20H 
CTS EQU 40H 
TBE EQU 80H 
ORG 100H 
LXX SP, STACK 
CALL UAPMINAT 
OUTTEST: CALL WRITESTAT 
JZ LINETEST 
KEYTEST: IN STATUS 
AN1 KSTB 
INZ OUTTEST 
IN KEYBD 
CALL DISPLAY 
CALL WRITE 
CPL LF 
cz TCLOSE 


Mo ee Se te 


me we te te ee 


INITIALIZE STACK 
INITIALIZE UART 

ANY DATA IN TBUF? 

NO, TRY TO RECEIVE SOME 
ANY KEYBOARD DATA? 


NO, TEST FOR LINE DATA 
GET DATA 

DISPLAY IT 

PUT IT INTO BUFFER 

WAS IT A LINE FEED? 
YES,SEND DATA IN BUFFER 


0120 C30601 


0123 CD3505 
0126 CC3A04 
0129 CAOCO1 
012c CD1805 
012F CD3A01 
0132 C32301 


0135 3A9B02 
0138 B7 
0139 C9 


013A F5 
013B SF 
013C OE02 
013£ CD0500 
0141 F1 
0142 C9 


0143 3EB7? 
0145 D300 
0147 329801 
014A DBO1 
014C DBOO 
014E E620 
0150 329701 
0153 C9 


O15F 3A9801 
0162 F602 
0164 8300 
0166 329801 
0169 C9 


O16A 3A9801 
916D EEO! 
016F D300 
0171 329801 
0174 C9 


017A DBO0O 
017C E601 
O17E C9 


017F bBOO 
0181 E640 
0183 FE40 
0185 C9 


J 
LINETEST : 


DISPLAY: PUSH 
MOV 


MVI 
CALL 
POP 


OUTTEST 1 GO FORMORE DATA 
READSTAT 3 DATA IW RECEIVE BUFFER? 
BLOCKRX } NO, TRY TO RECEIVE SOME 
KEYTEST } NO, TEST KEYBOARD ENTRY 
READ 3 GET DATA BYTE FROM RBUP 
DISPLAY } AND DISPLAY IT 

LINETEST 

TBUFNUM 3 GET COUNT 

A 3 AND TEST IT 

PSW 

E,A 

C,2 

BIOS 3 DISPLAY DATA IN (B) 

PSW 


N TO CALL 


RET y RETUR ER 
PHERREEEEEEEREEREEERERERREAEEL EEE O EAH LEREREREREARERAEREOD 
; BASIC UART DRIVER ROUTINES 


ENP ERECA SION OF UART 


: 
UARTINIT 


A, PI+WLS 1+WLS24+BRSO+DTR+RTS ) 8 DATA, 
CONTROL ; NO PARITY, DTR AND RTS OFF: 
CTRL } SAVE CONTROL INFO 

DATA 3 CLEAR ANY RESIDUAL DATA 
STATUS } SAVE INITIAL DSR STATUS 
DSR 

DSRSTAT 


» RETURN TO CALLER 


ENABLE RTS (MEANS DATA CAN BE RECEIVED) 


, 
SETRTS: Lpa 


CTRL } GET CONTROL INFORMATION 

AN1 OFFH-RTS 

OUT CONTROL 

STA CTRL 

RET 

DISABLE RTS ( MEANS DO NOT SEND ME ANY DATA ) 
CLEARRTS: 

LDA CTRL 3 GET CONTROL INFORMATION 

ORI RTS 

out CONTROL 

STA CTRL 

RET 

REVERSE VALUE OF DTR (TO ACKNOWLEDGE BLOCK ) 
FLIPDTR: LDA CTRL } GET CONTROL INFORMATION 

XRI DTR } FLIP OTR 

Our CONTROL 

STA CTRL 1 SAVE UART CONTROL INFORMATION 

RET } RETURN TO CALLER 
? TEST VALUE OF TBE (TRANSMIT BUFFER EMPTY) 
TESTTBE: IN STATUS 

ANI TBE 

RET 

TEST IF RECIEVE DATAIS AVAILABLE 
TESTRDA ! IN STATUS 

ANI RDA 

RET 
1 TEST VALUE OF CLEAR TO SEND 

NON-ZERO FLAG IF CTS, ZERO FLAG IF NO CTS 
TESTCTS: IN STATUS 

AN1 cTs 
CPI cTs 2NOTE SENSE INVERTED 
RET 


36'S 


; TEST IF VALUE OF DATA SET READY HAS CHANGED 
3 NON-ZERO FLAG IF DSR HAS CHANGED, ZERO IF NOT 
0186 E5 TESTDSR: PUSH H 3; DO NOT CHANGE HL 
0187 C5 PUSH B 3 OR BC 
0188 219701 LX1 H, DSRSTAT 3} POINT AT OLD DSR STATUS 
018B 46 MOV , 
018C DBOO IN STATUS 
018E E620 AN1 DSR 
0190 77 MOV M,A 3; SAVE NEW DSR STATUS 
0191 B8 CMP B + COMPARE OLD AND NEW 
0192 Cl POP B 3} RESTORE REGISTERS 
0193 E1 POP H 
0194 C9 RET ; RETURN WITH FLAGS SET 
HK KKK KK KK KK KKK KKK IKKE KKK IK IKKE KKK KKK EEE KE KKEEKKKEE 
0195 0000 CRC: DW 0 3 CRC CALCULATION AREA 
0197 00 DSRSTAT:DB 0 ; DSR STATUS SAVE AREA 
0198 00 CTRL: DB 0 ; CONTROL PORT INFORMATION 
OOFA = MAXNUM EQU 250 3} MAXIMUM AMOUNT OF DATA ALLOWED 
0199 9Cc01 RPOINT: DW RBUF 3; NEXT POINT TO GET DATA IN RBUF 
019B 00 RBUFNUM: DB 0 3; NUMBER ae BYTES IN RBUF 
019C RBUF: DS 253 RECEIVE BUFFER 
0299 9Cc02 TPOINT: DW TBUF ; NEXT POINT TO PUT DATA TN TRUF 
029B 00 TBUFNUM : DB 0 ;} NUMBER OF BYTES TN TBUF 
029C TBUF: DS 253 3; TRANSMIT BUFFER 
0399 DS 30H } STACK AREA 
03C9 = STACK EQU $ 
KKK KK IKK KI KKK KEK KKK IKKE KK EE KKK KK KKK KE KEKE EEKEKEKRK 
; SEND BYTE OF DATA OUT TO SERIAL PORT 
} DATA PASSED IN ACCUMULATOR 
SENDDATA: 
03C9 CD5205 CALL CALCCRC 3; INCLUDE IN CRC 
03CC E5 SEND: PUSH H 
03CD C5 PUSH B } SAVE B&C 
03CE 4F SEND1: MOV C,A 3} SAVE DATA TEMPORARILY 
03CF 210100 LX H,1 } DELAY FOR BUG IN UART 
03D2 2B SEND2: DCX H 
03D3 7C MOV A, 
03D4 BS ORA L 3 IS IT o? 
03D5 c2D20 INZ SEND2 
03D8 CD7501 SEND3: CALL TESTTBE 3; IS TBUF EMPTY? 
03DB CAD803 JZ SEND3 } NO, EP LOOPING UNTIL IT TS. 
03DE CD7F01 SEND4: CALL TESTCTS 3} IS CLEAR TO SEND UP? 
03E1 CADE03 JZ SEND4 } NO, CAN'T SEND YET 
03E4 79 MOV A,C } GET BACK DATA BYTE 
03E5 D301 OUT DATA 
03E7 Cl POP B 3} RESTORE B 
03E8 E1 POP H 
03E9 C9 RET 3; RETURN TO CALLER 
; SEND DATA IN TBUF TO THE UART TRANSPARENTLY 
SENDTBUF: 
O3EA ES PUSH H 
03EB C5 PUSH B 
O3EC 219B02 LX1 H, TBUFNUM 3} POINT TO TBUF BYTE CNT 
O3EF 4E MOV CcyM } SAVE IN C 
SENDTBUF 1: 
03F0 23 INX H 3} POINT TO NEXT BYTE 
O3Fi 7E MOV ALM ; GET IT 
03F2 CDC903 CALL SENDDATA ; SEND IT 
03F5 FE10 CPI DLE ; WAS IT DLE? 
03F7 CCC903 CZ SENDDATA 3; IF SO, SEND IT AGAIN 
O3FA OD DCR c 3 DECREMENT COUNT 
03FB C2F003 JNZ SENDTBUF? 3} CONTINUE SENDING 
Q3FE C1 POP B 
O3FF EL POP H 
0400 c9 RET ; RETURN TO CALLER 
SEND FORMATTED BLOCK TO UART 
BLOCKTX: 
0401 35616 MVI A, SYN 


0403 
0406 
0408 
040B 
040D 
0410 
0413 
0416 
0419 
041B 
O41E 
0420 
0423 
0426 
0429 
042C 
042F 
0430 
0433 
0436 
0439 


043A 


043D 
0440 
0441 
0443 
0446 
0449 
044A 
044C 


044F 
0452 
0455 


0458 
0459 
045B 
045E 
0461 
0462 
0465 
0466 
0469 
046C 
046D 
046E 
0471 
0474 
0475 


0478 
O47A 
047B 


047C 
047E 
047F 


0480 
0483 
0486 
0489 


048B 
048E 


CDCC03 
3E10 
CDCC03 
3E02 
CDCC03 
210000 
229501 
CDEA03 
3E10 
CDC903 
3E03 
CcDC303 
CDDE04 
CDF204 
cpnan4 
CA0104 
AF 
329B02 
219C02 
229902 
cao 


CD5401 
CDAE04 


FEQ2 
C23D04 


219C01 
229901 
CD8004 


C8 
FEQ3 


C23D04 
CDAEO04 


CD5F01 


7c 


210000 
229501 
219C01 
OEOO 


CDAE04 
C8 


RLOCKRX: 
BLOCKRX 1: 


BLOCKRX2: 


BLOCKRX3: 


RCVRBUF: 


RCVARUT 1: 


READ 
CALL 


CALL 
RZ 
CPI 
JINZ 
CALL 


RECEIVE 
CONTROL 
LXI 
SHLD 
LXT 

MVI 


CALL 
Rz 


SEND 
A,DLE 
SEND 

A, STX 
SEND 

H,0 

CRC 
SENDTBUF 
A,DLE 
SENDDATA 
A, ETX 
SENDDATA 
SENDCRC 
CHECKRX 
WAITDSR 
BLOCKTX ; 
A 
TBUFNUM 
H, TBUF 
TPOINT 


ue 


we se we 


no Se se Ne 


DIDN'T 


we me se 


, 


A FORMATTED TRANSPARENT BLOCK 
; ALLOW 


SETRTS 


RECEIVE ; 


; UNTIL A CONTROL 


3; RETURN ZERO STA 
ETx 


BLOCKRX1 
RECEIVE 


RECEIVE 
CLEARRTS 


CRC 
A,H 
L 


we Ne Se Me he te NO te 


BLOCKRX3 
H, RBUFNUM 
M,C 
FLIPDTR 


A,-1 
A 


wewe 


Me Se Se Ne se 


A,0 
A 


se se 


NITIALIZE CRC AREA 


SEND DATA IN TBUF 
THEN DLE-ETC SEQUENCE 
INCLUDE IN CRC 


NCLUDE IN CRC 

FINALLY SEND CRC BYTES 
TRY TO RECEIVE 

WALT FOR DSR TO CHANGE 
CHANGE, SEND BLOCK AGAIN 
A ged 
NDICATE TBUF 
POINT 


IS EMPTY 
TO START OF TBUF 


; RETURN TO CALLER 


OF DATA 
OTHER END TO SEND 


READ A BYTE FROM LINE 


3 RETURN WITH ZERO STATUS IF TIMED OUT 
DLE ; IS IT DLE? 
BLOCKRX1 7 NO, KEEP TRYING 
RECEIVE 3; GOT DLE, TRY FOR STX 
; RETURN WITH ZERO STATUS IF TIMED OUT 
STX 3 LSo LT SPX? 
BLOCKRX1 3 NO, TRY FOR DLE AGAIN 

3 ENTRY FROM BLOCKTX 

H, RBUF 3 POINT TO START OF RBUF 
RPOINT 
RCVRBUF 3 RECEIVE DATA INTO RBUF 


SEQUENCE IS RECEIVED 
TUS IF LINE TIMES OUT 
WAS IT PTX? 

UNEXPECTED SEQUENCE 
RECEIVE FIRST CRC CHAR 
RETURN HERE IF TIME OUT 
RECEIVE SECOND CRC CHAR 
RETURN HERE IF TIME OUT 
STOP OTHER END 

CHECK IF CRC WAS OK 


NO GOOD 
SAVE DATA COUNT 


GOOD, REVERSE DTR LINE 
TO ACKNOWLEDGE BLOCK 
RETURN NON-ZERO STATUS 
BLOCK RECEIVED OK 
RETURN TO CALLER 


RETURN WITH ZERO STATUS 
NO BLOCK RECEIVED 


DATA PORTION OF BLOCK, RETTJRNS WHEN A 


SEQUENCE FOUND IN 


H,0 ; 
CRC 

H, RBUP ; 
c,0 ; 
RECEIVE ; 


THE TRANSPARENT TEXT 
INITIALIZE CRC TO 0 


POINT TO START OF RBUF 
BYTE COUNT = 0 


GET A BYTE FROM LINE 


3 RETURN HERE WITH ZERO STATUS IF TIMEOUT 


O4F2 


FE10 


1 CA9A04 


77 
23 


oc 
C38B04 
CDAE04 
cs 
FE10 


CA9404 
ca 


CD5401 
2:1 A00F 


C3B504 


E ES 
cp5401 


210007 


B 
C2B8504 


011027 
cp8601 
Cc 


3A9B01 


} WAS IT DLE? 


RCVRBUF3 3 YES, LOOK AT NEXT BYTE 
M,A 3 PUT INTO BUFFER 

H 3 INCREMENT RBUF POINTER 
c 3 INCREMENT count 

RCVRBUF 1 3 LOOP FOR NEXT BYTE 
RECEIVE 

3 ZERO STATUS RETURN LINE TIMES OUT 
DLE 3 IS IT A TRANSPARENT DLE? 
RCVRBUF2 YES, GO PUT INTO BUFFER 


U 
: RETURN WITH CONTROL BYTE IN ACCUMULATOR 
3 AND NON-ZERO STATUS 


TRY TO READ PROM LINE WITH LONG TIMEOUT 


RECEIVL: Puee H 
SETRTS 3 ALLOW OTHER END TO SEND 
iar H,4000 LONG TIMEOUT VALUE 
+ SHOULD BE ADJUSTED FOR BEST RESULTS 
JMP RECEIV1 
? TRY TO READ FROM LINE, IF LINE TIMES OUT, 
? RETURN WITH ZERO STATUS 
RECEIVE: PUSH H 
CALL SETRTS 1 ALLOW OTHER END TO SEND 
LX1 H,2000 3 SHORT TIMEOUT VALUE, 
} ADJUST FOR ABOUT 2 CHAR TIMES 
RECEIV1:CALL TESTRDA } ANY RECEIVED DATA? 
yA RECELV2 3 NO, DECREMENT TIME 
IN DATA 3 GET DATA BYTE 
CALL CALCCRC } INCLUDE IT IN CRC 
POP H 
3 GOOD RETURN WITH NON ZERO STATUS 
RECEIV2 : DCX H 3} DECREMENT TIMER 
MoV A,H 
ORA L 3 IS TIME OVER 
JNZ RECEIV1 3 NO, KEEP TRYING 
CALL CLEARRTS 3 OOPS, TIMED OUT, 
3 DROP RTS SO OTHER SIDE WILL STOP 
MVI A,0 } RETURN WITH ZERO STATUS 
ORA A 
POP H 
RET 
’ WAIT FOR DSR TO CHANGE USING TIMEOUT 
WAITDSR: 
LXI B, 10000 3 DELAY © ALTER AS REQ'D 
WAITDSR?: 
CALL TESTDSR 3} CHECK FOR DSR CHANGE 
RNZ } RETURN IF IT HAS 
DCX B 
MOV A,B 
ORA c 3 IS TIME OVER? 
JNZ WAITDSR1 3 NO CONTINUE TESTING 
RET } UNSUCCESSFUL RETURN 
SENDTHECRC BYTES 
SENDCRC : XRA A 3} FINISH CRC CALCULATION 
CALL CALCCRC 
CALL CALCCRC 
LDA CRC+1 3 SEND FIRST CRC CHAR 
CALL SEND 
LDA CRC } SEND SECOND CRC CHAR 
CALL SEND 
REX 
? CHECK IF WE CAN RECEIVE A BLOCK NOW 
3 THIS ROUTINE IS CALLED AFTER A BLOCK HAS BEEN 
’ TRANSMITTED TOALLOW THE OTHER SIDE TO GET A 
? CHANCE TO SEND TO US 
CHECKRX: LDA RBUFNUM 3 IS THERE ANY DATA LEFT 


O4F5 B7 
Q4F6 CO 
O04F7 CD54014 


O4FA CDA404 


0535 3A9B01 
B? 
0539 C9 


053A F5 
053B £5 
053C zhQ004 


0540 23 

0541 229902 
0544 219B02 
0547 TE 
0548 3c 
0549 77 
FEFA 
054C cc0104 
054F E? 

0550 FI 
0551 C9 


0552 £5 
0553 c5 

0554 F5 
0555 0608 
0557 4F 
0558 2A9501 
055B = 

055B 79 


ORA A + IN RECEIVE BvrFer? 
RNZ 1 YES, CAN'T RECEIVE 
CALL SETRTS } ENABLE RTS TO ALLOW 
? OTHER SIDE TO SEND 
CHECKRX1: 
CAL RECEIVL 9 READ WITH LONG TIMEOUT 
RZ } TIMED OUT , RETURN 
CPI DLE } IS IT A DLE? 
JINZ CHECKRX1 # NO, KEEP LOOKING 
CALL RECEIVL 3 NOW LOOK FOR A STX 
RZ } TIMED OUT SO RETURN 
CPI STX 3 IS IT START OF TEXT? 
INZ CHECKRX 1 ? NO, KEEP LOOKING 
CALL BLOCKRX2 # NOW GO READ TRANSP. TEXT 
RET ) ZERO STATUS IF TIMEOUT 
)} NON-ZERO IF BLOCK WAS RECEIVED 
' SEND A BLOCK OF TRANSMIT DATA TO THE LINE I? 
THERE IS ANY DATA IN THE BUFFER 
ACLOSE: LDA TBUFNUM ? GET CONT a GRUERER 
ORA A } TEST FOR D 
CNZ BLOCKTX » SEND BLOCK ir ANY DATA 
RET } RETURN TO CALLER 
READ: PUSH 8 9 SAVE HL 
READ1: LXI i RRUENUM } POINT AT COUNT IN RBUP 
MOV ; 
ORA A } IS THERE M LEFT? 
JNZ READ2 ) YES 
CALL TCLOSE 3 SEND ANY DATA IW TBUP 
CALL BLOCKRX } RECEIVE ANOTHER BLOCK 
JMP READ1 ?} TRY TO DO READ AGAIN 
READ2: DCR M 3 DECREMENT COUNT 
LHLD RPOINT 3 GET READ POINTER 
MOV A,M 3} GET DATA BYTE 
INX H 3} INCREMENT POINTER 
SHLD RPOINT } AND SAVE AGAIN 
POP H } RESTORE HL 
RET } RETURN TO CALLER WITH DATA IN A 
READSTAT 
LDA Seven 3} GET COUNT OF DATA IN BUFFER 
ORA > TEST IT 
RET } NON-ZERO STATUS IP DATA PRESENT 
WRITE: PUSH Psw + SAVE DATA 
PUSH H 3} SAVE HL 
LHLD TPOINT 3 GET POINTER INTO TBUF 
MOV M,A ? PUT DATA INTO BUFFER 
INX 3 INCREMENT POINTER 
SHLD TPOINT 
LX1 H, TBUFNUM 3 POINT To COUNT IN TBUF 
MOV A,M 3 INCREMENT COUNT 
INR A 
MOV M,A 
CPI MAXNUM 3 IS BUPFER FULL? 
CZ BLOCKTX ? YES, SEND BLOCK NOW 
POP H » RESTORE HL 
i Psw 3 RESTORE DATA 


3 CRC CALCULATION ROUTINE 

} USES BYTE PASSED IN ACCUMULATOR TO INCLUDE IN CRC 

} RESTORES ALL REGISTERS AND STATUS 

CALCCRC: PUSH H 
PUSH 


PUSH PSW 
MVI B,8 
MOV C,A 
LHLD CRC 


CALCCRC 1: EQU $ 
MOV A,C 


LVS 


0330 
7 


DCR 


ss 


Pre PQ 


ss 


BS 

a” =P YP 
] 

Q 

ix) 


oP Bop 


w 


CALCCRC1 
CRC 
PSW 


1000 


0008 
0009 
OO0A 
000B 


0004 
0008 
0010 


ak 


Se me Se we we 


Ne Ne we Se Se Se Se Se Se Se Se Se Se Se SO 


INCTB MACRO 


IF 


INCLB MACRO 


COMPARE MACRO 


RST 


SIM MACRO 


RIM MACRO 


7 RAM CONSTANT 


LORAM EQU 


3 NON-ZERO STATUS MEANS LINE BUFFER ADDRESS IS IN HL REG. 


LAST CHANGED: 


LOCKHART, 


PROGRAM IS 
CONTROLLER 


?D 
NOT NUL ?D 
A,?D 


2 

2D 

NOT NUL ?D 
A, 2D 


3 


PEASSELESE SLES SESE LET SEE EE TEP SS TTP SE EP TT ree TT reer rr s 
ae VADCG TERMINAL NODE COMMUNICATIONS PROGRAM 
Y DOUG 8. 

KKK KIER EKER KKK KKK KKK 


JANUARY 31, 1983 


VE7APU JANUARY, 


TERMINAL INTERFACE PROGRAM FOR INTERFACING TO A CP/M 
SYSTEM. THIS 
TERMINAL NODE 
INTERFACE PROGRAM (LIP) RUNNING AT ADDRESS 0 IN MEMORY. 
THIS VERSION IS WRITTEN 
UART TO COMMUNICATE WITH 
THE BASIC FEATURES OF TH 
TRANSFER OF DATA IN BLOCKS 

RTS FLOW CONTROL FROM DIGITAL EQUIPMENT TO TIP 

AND CTS FLOW CONTROL FROM TIP TO DIGITAL EQUIPMENT 
ACKNOWLEDGEMENTS TO BLOCKS RECEIVED BY A CHANGE IN DTR 
ACKNOWLEDGEMENTS TO BLOCKS SENT BY A CHANGE IN DSR 
CRC-16 CHECKING OF ALL DATA BLOCKS 

ERROR RECOVERY BY RETRANSMISSION IF NO ACKNOWLEDGMENT 
USES BYTE STUFFING TECHNIQUE FOR DATA TRANSPARENCY 


WRITTEN TO RUN IN THE VADCG 
: IT INTERFACES WITH A LINK 


TO USE THE 8250 PROGRAMMABLE 
A COMPUTER. 
IS TIP ARE: 


30H 7 SET INTERRUPT MASK 


20H } READ INTERRUPT MASK 


- CHANGE FOR DIFFERENT RAM LOCATION 
1000H 3; START OF RAM STORAGE 


3; ZERO STATUS MEANS NO BUFFER IS READY 


NEXTIN MACRO 


RST 
ENDM 


4 


3} 8255 PARALLEL I/O EQUATES 


PORTA  EQU 
PORTB EOU 
PORTC  EQU 
CONTROL EQU 


3 BAUD RATE 
BAUD384' EQU 
BAUD192 EQU 
BAUD96 EQU 


EQUATES 
4 


8 
9 
OAH 
OBH 


me Se ne Se 


we se se 


8 
16 


PORT A INPUT AND OUTPUT 
PORT B INPUT AND OUTPUT 
PORT C INPUT AND OUTPUT 


CONTROL PORT OUTPUT ONLY 


DIVISUK FOR 38,400 BAUD 


DIVISOR FOR 19,200 BAUD 


DIVISOR FOR 9600 BAUD 


avs 


BAUD48 
BAUD24 
BAUD12 
BAUD600 
BAUD300 
BAUD150 
BAUD134 
BAUD110 
BAUD75 
BAUDS50 


we Se Se Se Se se Se Se we Ne 


; 8250 SERIAL I/O EQUATES 


IDENTIFICATION EQUATES 
1 : '0' IF 


} REGISTER EQUATES 
RBR EQU 0 
THR EQU 0 
IER EQU 1 
IIR EQU 2 
LCR EQU 3 
MCR EQU 4 
LSR EQU 5 
MSR EQU 6 
DLL EQU 0 
DLM EQU 1 

; INTERRUPT ENABLE EQUATES 
ERBFI EQU 1 
ETBEL EQU 2 
ELSI EQU 4 
EDSSI EQU 8 

} INTERRUPT 

IPEND EQU 

IIDO EQU 2 
IID1 EQU 4 

+ LINE CONTROL EQUATES 
WLSO EQU 1 
WLS1 EQU 2 
STB EQU 4 
PEN EQU 8 
EPS EQU 10H 
SPTY EQU 20H 
SBRK EQU 40H 
DLAB EQU 80H 
3; MODEM CONTROL EQUATES 
DTR EQU 1 
RTS EQU 2 
ours EQU 4 
OUT2 EQU 8 
LOOP EQU 10H 
3} LINE STATUS EQUATES 
DR EQU 1 
OE EQU 2 
PE EQU 4 
FE EQU 8 
BI EQU 10H 
THRE EQU 20H 
TSRE EQU 40H 
; MODEM STATUS EQUATES 
DCTS EQU 1 
DDSR EQU 2 
TERI EQU 4 
DRLSD  EQU 8 
CTS EQU 10H 
DSR EQU 20H 
RI EQU 40H 


E 
° 
; 
: 
i 
: 
i 
° 
; 


i 
i 
i 
i 


‘eens! $3 oe Ge 


DIVISO 


DIVISOR 


DIVISO 


DIVISOR 


DIVISO 


DIVISOR 


DIVISO 


DIVISOR 


DIVISO 
DIVISO 


RECEIVE BUFFER REGISTER 
TRANSMIT 

INTERRUPT 
INTERRUPT 
LINE CONTROL REGISTER 


MODEM 


LINE STATUS REGISTER 


MODEM 


DRIVER LATCH 


R FOR 
FOR 
R FOR 
FOR 
R FOR 
FOR 
R FOR 
FOR 
R FOR 
R FOR 


4800 BAUD 
2400 BAUD 
1200 BAUD 
600 BAUD 
300 BAUD 
150 BAUD 
134.5 BAUD 
110 BAUD 
75 BAUD 

50 BAUD 


(R) 
HOLDING REGISTER (W) 
ENABLE REGISTER (W) 
IDENT. REGISTER (R) 
(R/W) 
(R/W) 
(R/W) 
(R/W) 


CONTROL REGISTER 


STATUS REGISTER 
(LSB) (W) 


DRIVER LATCH (MSB) (W) 


ENABLE 
ENABLE 


RECEIVER 


ENABLE 


RECEIVED DATA INTERRUPT 
TRANSMITTER 

LINE STATUS INTERRUPT 
MODEM STATUS INTERRUPT 


INTERRUPT PENDING 


INTERRUPT IDENTIFICATION BIT 0 
INTERRUPT IDENTIFICATION BIT 1 


WORD LENGTH SELECT BIT 0 
WORD LENGTH SELECT BIT 1 


STOP BIT 


PARITY 


SELECT 
ENABLE 


EVEN PARITY SELECT 


STICK 


SET BREAK 


PARITY 


DRIVER LATCH ACCESS BIT 


DATA TERMINAL READY 


REQUES 


T TO SEND 


OUT1 LINE ON 8250 


OUT2 LINE ON 8250 


MODEM 


LOOP CONTROL BIT 


DATA READY 
OVERRUN ERROR 


PARITY 
FRAMIN 
BREAK 


ERROR 
G ERROR 
INTERRUPT 


TRANSMUTVER "HULDING REG EMPTY 
TRANSMITTER SHIFT REG EMPTY 


DELTA 
DELTA 
TRAILI 
DELTA 
CLEAR 
DATA S 
RING I 


CLEAR TO SEND 

DATA SET READY 

NG EDGE RING INDICATOR 
RX LINE SIGNAL DETECT 
TO SEND 

ET READY 

NDICATE 


0017 


1000 


RLSD 


RIMD 
MSE 


EQU 


EQU 
EQU 


80H 


17H 
08H 


3 COMMON COMMUNICATIONS 


3 


se se 


AREA 


MASK SET 


RECEIVE LINE SIGNAL DETECT 


REQUEST INITIALIZATION MODE 


3 CIRCULAR TERMINAL BUFFER VARIABLES 


3 CIRCULAR LINE 


LORAM 
CCAt+4 
CCA+6 
CCA+8 
CCA+0AH 
CCA+OCH 
CCA+0EH 


BUFFER VARIABLES 


° 
; 
° 
; 
° 
? 
i 
° 
; 
° 
; 
. 
; 


TERMINAL 


COMMON 
OLDEST 


TERMINAL 


CURRENT 


ENABLE BIT 


COMMUNICATIONS AREA ADR. 
CURRENT TERMINAL BUF INP. 


ENTRY 


TERMINAL BUFFER ENTRY 
BUFFER INPUT POINTER 
BUFFER OUTPUT POINTER 
LAST TERMINAL BUF OUTPUT ENTRY 
TERMINAL BUF OUT ENTRY 


LBPE EQU CCA+12H ; LINE BUFFER PROCESSING ENTRY 
CLBE EQU CCA+14H } CURRENT LINE BUFFER ENTRY ADDR. 
OLBE EQU CCA+16H ; OLDEST LINE BUFFER ENTRY 

LBIP EQU CCA+18H } LINE BUFFER INPUT POINTER 

LBOP EQU CCA+1AH ; LINE BUFFER OUTPUT POINTER 

; MISCELLANEOUS 

STAT! EQU CCA ; MAINLINE STATUS BYTE 

; THE FOLLOWING VARIABLES ARE FOR EXCLUSIVE USE BY TIP 
BUFCOUNT EQU CCA+1CH ; CURRENT INPUT BUFFER COUNT 
OUTCOUNT EQU CCA+1DH ; CURRENT OUTPUT BYTES REMAINING 
WAIT EQU CCA+40H } CHARACTER DELAY VALUE 

MSRSAVE EQU CCA+42H ; LATEST MODEM STATUS REGISTER 
INTFLAG EQU CCA+43H ; INTERRUPT ROUTINE FLAGS 

RXBUSY EQU 01H | RECEIVE INTRPT ROUTINE ACTIVE 
TXBUSY EQU 02H | TRANSMIT INTRPT ROUTINE ACTIVE 
CRC EQU CCA+44H ; CRC CALCULATION AREA 

RCRC2  EQU CCA+46H ; SECOND RECEIVED CRC BYTE 

RCRC1 EQU CCA+47H ; FIRST RECEIVED CRC BYTE 

TCRC2 QU CCA+48H ; SECOND TRANSMIT CRC BYTE 

TCRC1  EOQU CCA+49H ; FIRST TRANSMIT CRC BYTE 

RNEXT  EQU CCA+4AH } CURRENT RECEIVE ROUTINE ADDRESS 
TNEXT EQU CCA+4CH } TRANSMIT ROUTINE ADDRESS 

RDISP EQU CCA+4EH ; RECEIVE INTERRUPT ROUTINE ADDR. 
TDISP  EQU CCA+50H ; TRANSMIT INTERRUPT ROUTINE ADDR 
DFLAG  EQU CCA+52H ; DISPATCH FLAG 

CRCTX  EQU 01H ; CRC ROUTINE IN USE BY TX DISP. 
; ASCII EQUATES 

CR EQU ODH { ASCII CARRIAGE RETURN 

LF EQU OAH ; ASCII LINE FEED 

ESC EQU 1BH ; ASCII ESCAPE CHARACTER 

STX EQU 02H ; ASCII START OF TEXT 

ETX EQU 03H ; ASCII END OF TEXT 

DLE EQU 10H | ASCII DATA LINK ESCAPE 

SYN EQU 16H { ASCII SYNCHRONIZATION CHARACTER 
PAD EQU OFFH } TRAILING PAD CHARACTER 

TRUE EQU OFFH ; FOR IF CONDITION TESTS 

FALSE  EQU 0 ; FOR IF CONDITION TESTS 

i SESEPRSELSSESSSLESSESESE SESE SE SSE SELES ESSE SESE EE ESE SES ESS SD 
3 ** CONFIGURATION EQUATES hel 
ieiel VALUES CHANGE FOR EVERY CONFIGURATION * 


PER SSESSSLASSESE SS SLE SLES ESE SESE SEES ESE SESS SS SSE EE SES SS 


FORMAT EQU 


WLS 1+WLSO 


3 UART FORMAT 


(8 DATA, 


ere 


3 NO PARITY) 


0020 = BAUDRAT EQU BAUD48 3; CURRENT BAUD RATE 
OOFF = CUSHION EQU 255 ; THE MINIMUM NUMBER OF BYTES 
} AVAILABLE IN THE TERMINAL BUFFER THAT 
3 ARE REQUIRED BEFORE A RECEIVE 
; OPERATION IS STARTED. 
2710 = ACKTO EQU 10000 3 ACKNOWLEDGE TIMEOUT COUNT 
3 (PRELIMINARY VALUE) 
HHI KKK KKK KEK IK KIKI KKK KEK IKK KEE KKK KEKE 
0800 ORG 800H 3} THIS PROGRAMS EPROM START ADR. 
3 ENTRY JUMP TABLE 
0800 €31508 JMP TJPINIT 3 INITIALIZATION ENTRY POINT 
0803 C34808 IMP RST55 } INTERRUPT FROM 8250 
0806 C30608 MP 3} UNUSED INTERRUPT ENTRY POINT 
0809 C3100A JMP DISPRX +3 TO DISPATCHER ROUTINE 
080C 0C17564537RIMBUF DB 12,RIMD,'VE7APU' 3 CONNECT BUFFER 
0814 C8 TERMNO 2D 09 ; THIS NODES TERMINAL NUMBER 


0815 3E80 
0817 D303 
0819 320 
081B D300 
081D 3E00 
O81F D301 


0821 
0823 


3E03 
D303 


0825+20 
0826 E606 
0828 F608 


082A+30 
082B DBOO 


082D 
0830 


214309 
224A10 
0833 211608 
0836 225010 
0839 2T140A 
083C 224310 


083F 3E09 
0841 D301 


3E04 
D304 


n~O 
cy 


0848 FS 
0849 E5 
084A D5 
084B C5 
DBO2 
FEO4 
CA8A08 


DB Og 
KAKKEKKKEKEKEEKEEKEKKKKKEKKKE 


TIAL DISPATCH ROUTINES 


KEK KKKKEKKEKKKEKEKKKEKEKKEKKEKKKKEKKKEKKEK 


3 BAUD RATE DIVISOR LSB 


7 BAUD RATE DIVISOR MSB 
OF SERIAL DATA 


UPDATE LINE CONTROL REGISTER 


[TERRUPTS FROM SERIAL INTERFACE 


GET CURRENT INTERRUPT MASK IN A 
READ INTERRUPT MASK 

3 RESET RST5.5 MASK BIT 
SET MASK SET ENABLE BIT 
ENABLE RST5.5 INTERRUPTS 
SET INTERRUPT MASK 


STER 


SET RECEIVE INTERRUPT TO IDLE 


3 WAITING FOR LIP BLOCK 


3 WALTING FUR FREE CUSHION 


A AVAILABLE AND MODEM STATUS INTRPT 


RECEIVE AND MODEM 
UPDATE INTERRUPT REGISTER 


(OUT1 = RLSD) 


UPDATE MODEM CONTROL REGISTER 


3 RETURN TO LIP FOR COMPLETION OF INITIALIZATION 


ISS SESESZESLASESE SESE SESS SEE EES ESSA SEES SESE SS SS 


GET INTERRUPT IDENT INFORMATION 
RECEIVED DATA AVAILABLE INTRPT? 


TIPINIT: 
+°ET BAUD RATE IN SERIAL PORT 
MVI A, DLAB 
OUT LCR 
MV A,LOW BAUDRAT 
oul DLL 
MV A,HIGH BAUDRAT 
OUT DLM 
} DEFINE CHARACTER FORMAT 
MV A, FORMAT 
OUT LCR : 
3 UNMASK IN7 
RIM ; 
DB 20H : 
AN 000001108 
OR MSE ; 
SIM ; 
DB 30H ; 
} CLEAR OUT RECEIVE BUFFER REG 
RBR 
3} SET UP INIT 
LX H,EXIT ; 
SHLD RNEXT 
LX H, WAITLIP 
SHLD TDISP 
LXI H’ WAITTB 
SHLD RDISP 
} ENABLE RECEIVED DAT 
MV A, ERBFI+EDSSI ; 
ou IER ; 
3; BRING UP RLSD 
MV A,OUT1 
ou MCR ; 
RET 
RKKKKKKKKKEK 
RST55: PUSH PSW 
PUSH H 
PUSH D 
PUSH B 
I IIR ; 
CPI IID1 ; 
JZ RXINT ; 


GO TO RECEIVE INTERRUPT ROUTINE 


FEO2 
CA4909 
B7 
CA5F08 
C34309 


C46D08 
C34309 


719 
E610 

CA7608 

C37D08 


DBO1 
E6FD 
D301 
c9 


3A4310 
E602 


224A10 
C34309 


FEO2 
C2ACO08 
21B508 
224A10 
C34309 
219008 
224A10 
C34309 


FE10 

CAC308 
CDEE08 
CA0609 
C34309 
21CC08 
224A10 
C34309 


FE10 

C2E008 
CDEEU8 
CA0609 
21B508 
224A10 
C34309 


FEO3 


CPI 1100 j IS IT TRANSMIT BUFFER EMPTY 
JZ TXINT  ¢ GO TO TRANSMIT INTRPT ROUTINE 
ORA A {| MODEM STATUS INTERRUPT? 
JZ MSINT + TO MODEM STATUS INTRPT ROUTINE 
JMP EXIT | UNKNOWN INTERRUPT, RETURN 
MSINT: IN MSR j GET MODEM STATUS 
STA MSRSAVE ; SAVE MODEM STATUS FOR DISPATCH 
MOV C,A | SAVE IT 
AN1 DCTS ; HAS CTS CHANGED? 
CNZ CTSINT }; YES GO HANDLE CTS CHANGE 
JMP EXIT 
CTSINT: MOV A,C j GET MODEM STATUS BACK 
AN1 CTS ; TEST CTS BIT 
JZ DISABLETX } OFF, DISABLE TRANSMIT 
JMP ENABLETX } TRY TO ENABLE TRANSMIT 
DI SABLETX: 
I ER ; GET INTERRUPT ENABLE REGISTER 
AN1 OFFH-ETBEL 
OUT ER ; TURN OFF TRANSMIT INTERRUPTS 
RET 
ENABLETX: 
LDA NIFLAG ; IS TRANSMITTER BUSY? 
ANI TXBUSY 
RZ 3 NO, RETURN 
ER } GET INTERRUPT ENABLE REGISTER 
OR ETBEI 
OUT ER } ENABLE TRANSMIT INTERRUPTS 
RET 
HK KKK KKK KERIKERI TIRE EK KKK EEK KIKI KEKE KEK KKK KKK 
RXINT: IN RBR } READ DATA FROM SERIAL PORT 
LHLD RNEXT 3 GO TO ROUTINE ADDRESS IN RNEXT 
PCHL 
RSTART: CP DLE ; IS IT A DATA LINK ESCAPE? 
INZ EXIT ; NO 
LX H,RSTX 4 YES, NOW WAIT FOR START OF TEXT 
SHLD RNEXT 
JMP EXIT 
RSTX: CPI STX } IS IT START OF TEXT 
INZ RSTX1 3 NO 
LX H,RDATA ; YES, HANDLE TRANSPARENT DATA 
SHLD RNEXT 
JMP EXIT 
RSTX1:  LXI H, RSTART } FALSE START GO BACK 
SHLD RNEXT 3 TO BEGINNING 
JMP EXIT 
RDATA: CPI DLE ; IS IT A DLE? 
JZ RDATA1 j; YES 
CALL RPUT ; NO, PUT DATA INTO BUFFER 
J2 RESTART ; ERROR, RESET BUFFER AND RESTART 
JMP EXIT ; FROM BEGINNING 
RDATA1: LXI H, RCONTROL } RECEIVE CONTROL 
SHLD RNEXT } CHARACTER NEXT 
IMP EXIT 
RCONTROL: 
CPL DLE } IS IT A SECOND DLE? 
JNZ RCONTROL1 ; NO, CHECK FOR ETX 
CALL RPUT } YES, PUT DLE IN BUFFER 
JZ RESTART ; ERROR, RESET BUFFER AND RESTART 
LX H,RDATA ; GO BACK FOR MORE DATA 
SHLD RNEXT 
JMP EXIT 
RCONTROL1: 
CPI ETX ; IS IT END OF TEXT? 


bre 


Q8E2 C20609 
08E5 211D09 
O8E8 224A10 
O8EB C34309 


O8EE 4F 
O8EF 2A0610 
O8F2 EB 
O8F3 2A0810 


O8F6+3E01 


C8 
O8FA 220810 
71 
O8FE 211C10 
34 


0902 7E 
0903 FEFB 
0905 C9 


0906 3E00 
0908 321C10 
090B 2A0410 


090E+3E01 
0910+D7 
0911 220810 
0914 219008 
0917 224A10 
091A C34309 


091D 324710 
0920 212909 
0923 224010 
0926 C34309 


0929 324610 


0949 2A4C10 
E9 


0940 3E16 
094F D300 
215A09 
0954 224C10 
0957 C34309 


095A 3E10 
095C D300 
216709 
224C10 
0964 C34309 


0967 3E02 


RICRC: 


R2CRC: 


GH 


Gnen 
Ks 
UE 
Oo 


4H 
Pa 


NANPHOPHN 
320aq 
PH 


EI 


RESTART 3 NO, ERROR « RESTART 
; 


H,R1ICRC NEXT RECEIVE FIRST CRC CHAR 
RNEXT 
EXIT 
C,A 3 SAVE DATA IN REGISTER C 
OTBE 3 PUT DATA INTO BUFFER 
TBIP 
1 
A,1 
2 
3 RETURN WITH ZERO STATUS IF OVERFLOW 
TBIP ; UPDATE POINTER IF OK 
M,C 3 MOVE DATA INTO BUFFER 
H, BUFCOUNT 3 INCREMENT COUNT OF DATA 
M 
A,M . 
251 | HAVE WE GOT 251 BYTES NOW? 

| ZERO STATUS IF TOO MANY BYTES 
A,0 3 SET COUNT IN BUFFER TO ZERO 
BUFCOUNT 
CTBIE ¢ SET INPUT POINTER JUST BEFORE 
1 | DATA AREA 
A,1 
2 
TBIP 
H, RSTART 3 AND RESTART RECEIVER 
RNEXT 
EXIT 
RCRC1 3 SAVE FIRST CRC CHARACTER 
H,R2CRC + NOW GET SECOND CRC CHARACTER 
RNEXT 
EXIT 
RCRC2 3 SAVE SECOND CRC CHARACTER 
MCR 7 RESET REQUEST TO SEND 
OFFH=-RTS 
MCR 
INTFLAG 3 INDICATE RECEIVE ROUTINE 
OFFH-RXBUSY 3 IS NOT ACTIVE 
INTFLAG 


H,EXIT 3 IGNORE ALL RECEIVE INTERRUPTS 
RNEXT 

EXIT 

B 

D 


H 
PSW 


RET 
PITTI RIK IK TI I IK IK RII RII I TIKIT KI RIK ERI IK EIR IKE RIK ERIK 


zy TRANSMIT 


TXINT: 


TSTART: 


TDLE 1: 


TSTX: 


LHLD 
PCHL 


MVI 
OUT 
LXI 
SHL 
JMP 


MVI 


INTERRUPT ROUTINES 


TNEXT 3 DISPATCH ADDRESS IN TNEXT 


A,SYN 3 OUTPUT A SYN CHARACTER 
H,TDLE1 ; NEXT SEND A DLE 


A, DLE 3 OUTPUT A DLE 
H,TSTX 3 NEXT OUTPUT START OF TEXT 


A, STX 3 OUTPUT START OF TEXT 


0969 
096B 
096E 
0971 


0974 
0977 
0978 
0979 


097C 35 


097D 


2A1A10 


0980+3E01 
0982+DF 


0983 
0986 
0987 
0989 
098B 
098E 
0991 
0994 
0997 
0999 
099B 
099E 
09A1 


09A4 
09A6 


221A10 
7E 


224C10 
C34309 


3E10 
D300 
217409 
224C10 
C34309 


3E03 
D300 
21BE09 
224C10 
C34309 


3A4910 
D300 
21CC09 
224C10 
C34309 


3A4810 
D300 
21DA09 
224C10 
C34309 


CD7608 
C34309 


FS 
0608 


4F 
204410 


TDATA: LXI 


TDLE: 


TETX: MV 


TICRC: LDA 


T2CRC: LDA 


TPAD: MV 


JMP 


THR 


H,TDATA 3; NEXT FUNCTION HANDLES TEXT DATA 
TNEXT 


EXIT 


H,OUTCOUNT 3; MORE DATA IN BUFFER? 
A,M 


A 
TDATA1 +; NO, BUFFER EMPTY 
M 


LBOP 

1 

A,1 

3 

LBOP | LBOP = LBOP+1 

A,M 

THR | OUTPUT DATA AT LBOP 
DLE i IS IT SAME AS DLE? 
EXIT | NO 

H,TDLE ; TRANSMIT ANOTHER DLE 
TNEXT 3; TO MAKE TRANSPARENT 
EXIT 


A, DLE 3 OUTPUT A DATA LINK ESCAPE 


H,TETX ; NEXT SEND END OF TEXT 


A,DLE 3 SEND DATA LINK ESCAPE 


H,TDATA ; AND GO BACK TO TRANSPARENT MODE 


SEND END OF TEXT 
H,TICRC ; NEXT SEND FIRST CRC CHARACTER 
TNEXT 


SEND FIRST CRC CHARACTER 
H,T2CRC 3; NEXT SEND SECOND CRC CHARACTER 


SEND SECOND CRC CHARACTER 


H,TPAD 3; SEND TRAILING PAD CHARACTER 


A, PAD 7 SEND TRAILING PAD AFTER CRC 
THR 
INIFLAG ; MARK TRANSMIT NOT BUSY 
OFFH-TXBUSY 

INTFLAG 

DISABLETX 


EXIT 
FH IK IKK KKK KI IKI RIKKI KEI KIKI ERIE REE REE KEN 
3 CRC CALCULATION ROUTINE 
3 INCLUDES BYTE IN ACCUMULATOR IN CRC CALCULATION 


CALCCRC : PUSH 
MV 


MOV 
LHLD 
CALCCRC1:EQU 
MOV 
RLC 
MOV 
MOV 
RAL 


SVs? 


09F8 6F MOV L,A OA7A C9 RET 
O09F9 7C MOV A,H 
OOFA 17 RAL OA7B 211010 RXCRC: LXI H, BUFCOUNT 3 MORE DATA TO INCLUDE? 
O9FB 67 MOV H,A OA7E 7E MOV A.M 
O9FC D2070A INC CALCCRC2 OA7F B7 ORA A 
OOFF 7C MOV A,H 0A80 CA970A dz RXCRC1 +3 NO, GO TO INCLUDE CONTROL CHARS 
OAOO EE80 XRI 80H OA83 35 DCR M | DECREMENT COUNT 
OA02 67 MOV H,A OA84 2A0810 LHLD TBIP | UPDATE POINTER TO NEXT POSITION 
0A03 7D MOV A,L INCTB 1 
0A04 EEO5 XRI 05H 0A87+3E01 MV A,1 
OA06 6F MOV L,A 0A89+D7 RST 2 
OA07 = CALCCRC2: EQU $ OA8A 220810 SHLD TBIP 
0A07 05 DCR B OA8D 7E MOV AM ; GET DATA BYTE INA 
OA08 C2F309 JNZ CALCCRC1 QA8E CDECO9 CALL CALCCRC ; INCLUDE IT IN CRC CALCULATION 
QOAOB 224410 SHLD CRC 0A91 FELO cP DLE | WAS IT DATA LIKE A DLE? 
OAOE F1 POP PSW 0A93 CCECO9 cz CALCCRC 3 DO ANOTHER FOR TRANSPARENCY 
OAOF C9 RET OA96 C9 RET | RETURN TO LIP 
HHI KEKE KR EKIKKIIKHREKEIKEEEEKKKIKKEKRK KKK 0A97 3E10 RXCRC1: MV A, DLE ? INCLUDE DLE AND ETX IN CRC 
3} RECEIVE SIDE DISPATCH ROUTINES 0A99 CDECO09 CALL CALCCRC 
OA9C 3E03 MV A, ETX 
0A10 2A4E10 DISPRX: LHLD RDISP 3 GO TO RECEIVE DISPATCH ROUTINE OASE CDECO9 CALL CALCCRC 
0A13 EQ PCHL OAA1 21A80A LXI H, CHECKCRc » NEXT CHECK THE CRC 
. OAA4 224E10 SHLD RDISP 3 GO INCLUDE CRC CHARS RECEIVED 
0A14 2A0610 WAITTB: LHLD OTBE | TERMINAL BUFFER CUSHION FREE? oAA7 C RET 
OA17 EB XCHG 
OA18 2A0410 LHLD CTBIE OAA8 3A4710 CHECKCRC: LDA RCRC1 3} INCLUDE RECEIVED CRC CHARACTERS 
COMPARE 3} COMPARE DE TO HL OAAB CDECO09 CALL CALCCRC 
OA1B+EF RST 5 OAAE 3A4610 LDA RCRC2 
OA1C CA280A JZ WAITTB1 ; SAME, BUFFER AVAILABLE OAF31 CDECO9 CALL CALCCRC 
INCTB CUSHION 3 IS CUSHION FREE? OAB4 21BBOA LXI H, CHKFIN 3 NEXT CHECK IF CRC IS GOOD 
OA1F+3EFF MV A, CUSHION OAB7 224310 SHLD RDISP 
0A21+D7 RST 2 OABA C9 RET 
0A22 DA120B JC DISPTX }; TO TRANSMIT ROUTINE DISPATCHER 
OA25 2A0410 LHLD CTBIE 3 POINT TBIP JUST AHEAD OF DATA OABB 2A4410 CHKFIN: LHLD CRC 3} GET CALCULATED CRC 
WAITTB1: INCTB 1 QABE 7D MOV A,L 3 IS IT ZERO? 
0A28+3E01 MV A,1 OABF B4 ORA H 
QA2A+D7 RST 2 OACO C2D00A INZ CHKFIN1 3; NO, GO RESTART RECEIVE OPERATION 
0A2B 220810 SHLD TBIP : 0AC3 DBO4 I MCR 3} YES, GOOD CRC, FLIP DTR 
OA2E 3E00 MV A,0 | ZERO COUNT FOR RECEIVE ROUTINE OAC5 EEO1 XR DTR 
6A30 321210 STA BUFCOUNT OAC7 D304 OUT MCR 
0A33 F3 D OAC9I 21D70A LXI H,RPROC 3 PROCESS CHECKED BLOCK 
0A34 3A4310 LDA INTFLAG 3; RECEIVE ROUTINE IS ACTIVE OACC 224310 SHLD RDISP 
0A37 F601 OR RXBUSY OACF C9 RET 
0A39 324310 STA INTFLAG OADO 21140A CHKFIN1:LXI H,WAITTB # BAD CRC, TRY AGAIN 
0A3C FB E OAD3 224E10 SHLD RDISP 
0A3D 219008 L H, RSTART } START RECEIVING OAD6 C9 RET 
OA40 224A10 SHLD RNEXT . 
0A43 DB04 E MCR | SET RTS SO OTHER END WILL SEND 3} THIS ROUTINE SHOULD PROCESS THE BUFFER PREFIX 
OA45 F602 OR RTS 3; TEMPORARILY IT ONLY PASSES THE BUFFER TO THE LIP 
OA47 D304 OUT MCR ; AND HANDLES CONNECT/DISCONNECT 
0A49 21500A LX H, WAITRX 3; WAIT FOR BLOCK OAD7 2A0410 RPROC: LHLD CTBIE 3} IS COUNT 7 OR MORE? 
OA4C 224EF10 SHLD RDISP OADA 7E MOV A,M 
OA4F C9 RET OADB FEO7 CPI 7 
OADD DA020B JC RPROC2 ; NO, PASS TO LIP 
0A50 3A4310 WAITRX: LDA INTFLAG ; IS RECEIVER STILL BUSY? INCTB 8 | POINT TO SEE IF CONNECT OR 
0A53 E601 A RXBUSY 0AE0+3E08 MV A,8 
0A55 C2120B INZ DISPTX ; YES, GO TO TRANSMIT DISPATCHER OAE2+D7 RST 2 
OA58 3A5210 LDA DFLAG 3} GET DISPATCHER FLAG QAE3 7E MOV A,M | DISCONNECT 
OA5B E601 AN CRCTX 7 IS CRC ROUTINE BUSY? OAE4 FEO1 CPI "A'=40H 3; IS IT CONNECT? 
OA5D C2120B ONZ DISPTX ; YES, GO TO TRANSMIT DISPATCHER OAE6 C2F30A JNZ RPROC1 ; NO, GO TO TEST FOR DISCONNECT 
OA60 211C10 LX H, BUFCOUNT 7 COUNT OF BYTES RECEIVED OAEQ 3500 MV A,0 i 0 FOR CONNECT 
OA63 7E MOV A.M OAEB F7 RST 6 3} COMMUNICATE REQUEST TO LIP 
OA64 2A0410 LHLD CTBIE ; POINT TO CURRENT INPUT ENTRY OAEC 211400 LXI H,WAITTB } DON'T PASS THIS ENTRY 
OA67 77 MOV M,A 3} PUT COUNT IN BUFFER HEADER OAEF 224510 SHLD RDISP 
INCTB 1 3} POINT JUST BEFORE DATA AREA OAF2 C9 RET 
0A68+3E01 MV A,1 OAF3 FEO2 RPROC1: CP 'B'-40H ; IS IT DISCONNECT? 
OA6A+D7 RST 2 OAF5 C2020B INZ RPROC2 }; NO, PASS TO LIP 
OA6B 220810 SHLD TBIP OAF8 3E01 MVI A,1 3} YES, 1 FOR DISCONNECT 
OA6E 210000 LX H,0 3; INITIALIZE CRC VALUE OAFA F7 RST 6 } COMMUNICATE REQUEST TO LIP 
OA71 224410 SHLD CRC OAHR 21140A LXI H,WAITTB 3 DON'T PASS THIS ENTRY 
0A74 217BOA LX H,RXCRC ; NEXT CALCULATE CRC OAFE 224310 SHLD RDISP 
0A77 224310 SHLD RDISP 0B01 C9 RET 


QV'G 


0B02 2A0810 


0B05+3E01 
OBO7+D7 
OBO08 220410 
OBOB 21140A 
OBOE 224E10 
0B11 C9 


0B12 2A5010 
0B15 EQ 


OB16+E7 
0B17 C8 
0B18 3A5210 
OB1B F601 
0B1D 
0B20 7E 
0B21 321D10 


0B24+3E03 
0B26+DF 
0B27 221A10 
OB2A 210000 
OB2D 224410 
0B30 21370B 
0B33 225010 
OB36 C9 


0B37 211D10 
OB3A 7E 
0B3B B7 
O0B3C CA530B 
OB3F 35 
OB40 2A1A10 


0B43+3E01 


0B46 221A10 
0B49 7E 
OB4A CDECO9 
OB4D FE10 
OB4F CCECO09 
6B52 C9 
0B53 3510 
0B55 CDECO9 
0B58 3E03 
OB5A CDECN9 
OB5D 21640B 
0B690 225010 
0B63 C9 


0BG64 3E00 
OB66 CDECON9 
0B69 CDECO9 
OB6C 2A4410 
OB6F 224810 
0B72 21790B 
0B75 225010 
0B78 C9 


0B79 3A4210 
OB7C E620 
OB7E 67 
OB7F 3A5210 
0B82 E6DE 
OB84 B4 


RPROC2: LH 


RET 


al 3 UPDATE CURRENT INPUT ENTRY 

A,1 

2 

CTBIE 

H,WAITTB 3; NOW GO GET ANOTHER ONE 
RDISP 


FOI I IOI III III III II ITO III I Ie 
; TRANSMIT SIDE DISPATCH ROUTINES 


DISPTX: LHLD 
PCHL 


3 THIS ROUTINE SHOULD PROCESS THE BUFFER PREFIX BUT 
7 TEMPORARILY IT ONLY PASSES THE BUFFER TO THE HOST 
WAITLIP:NEXTIN 


RST 


TXCRC: LXI 


RET 

TXCRC1: MV 
CALL 
MV 


CALL 
LXI 
SHLD 
RET 


CRCFIN: MVI 


STARTTX: LDA 
A 


MOV 
LDA 


ORA 


TDISP ; GO TO TRANSMIT DISPATCH ROUTINE 


; IS THERE A BUFFER ENTRY FROM THE LIP? 
4 


; NO, RETURN 
DFLAG 3 INDICATE TX SIDE USING CRC 
CRCTX  } ROUTINES 
DFLAG 
AM ; GET DATA LENGTH FROM HEADER 
OUTCOUNT ; FOR CRC CALCULATION ROUTINE 
3 ; POINT JUST BEFORE DATA AREA 
A,3 

3 
LBOP } FOR CRC CALCULATION ROUTINE 
H,0 ; INITIALIZE CRC VALUE 
CRC 
H,TXCRC ; NEXT START CRC CALCULATION 
TDISP 
H, OUTCOUNT ; ANY MORE DATA TO INCLUDE? 
AM 
A 
TXC RC 1 3 NO, GO TO INCLUDE CONTROL CHARS 
M } DECREMENT COUNT 
LBOP ; UPDATE POINTER TO NEXT POSITION 
1 
A,1 
3 
LBOP 

iM ; GET DATA BYTE IN A 
CALCCRC ; INCLUDE IT IN CRC CALCULATION 
DLE ; WAS IT DATA LIKE A DLE? 
CALCCRC ; DO ANOTHER FOR TRANSPARENCY 

; RETURN TO LIP 

A,DLE  ; INCLUDE DLE AND ETX IN CRC 
cALC CRC 
A,RTX 
CALCCRC 


H,CRCFIN 3 NEXT TO FINISH CRC FOR SENDING 


TDISP 

A,0 ; FINISH OFF CRC CALCULATION FOR 
CALCCRC ; TRANSMISSION 

CALCCRC 

CRC ; SAVER CAULODATTOAY RAO TRANSMIT 
TCRC2 

H, STARTTX ; NEXT, START TRANSMITTING 
TDISP ; THE BLOCK 

MSRSAVE ; SAVE CURRENT DSR LEVEL 

DSR 

H,A 

DFLAG 


OFFH-CRCTX-DSR =; INDICATE CRC ROUTINE 
H ; NOT IN USE AND SAVE 


0B85 325210 
OB88 214D09 
OB8B 224C10 
OBSE 2A1610 
0B91 7E 

0B92 321D10 


0B95+3E03 
0B97+DF 
OB98 221A10 
OB9B F3 
OB9C 3A4310 
OBSF F602 
OBA1 324310 
OBA4 3A42 10 
OBA7 E610 
OBAQ CAB20B 
OBAC DBO1 
OBAE F602 
OBBO D301 
OBB2 FB 
0BB3 21BA0B 
OBB6 225010 
OBB9 C9 


OBBA 3A4310 
OBBD E602 
OBBF C0 
OBCO 211027 
OBC3 224010 
OBC6 21CDOB 
OBC9 225010 
OBCC C9 


OBCD 215210 
OBDO 3A4210 
OBD3 AE 
OBD4 E620 
OBD6 C2EA0B 
OBD9 2A4010 
OBDC 2B 
OBDD 224010 
OBEO 7C 
OBE1 B5 
OBE2 CO 
OBE3 217908 
OBE6 225010 
OBEQ C9 


OBEA 21160B 
OBED 225010 
OBFO C9 


OBF1 


WAITTX: 


ZO 
an 


DnNEMNHADPE 

mm <im x 

He E N 
iw} 


WAITACK: 


NEWOZBNUE 
s 


wD 
fea 
HE 


WAITACK1: 


f 


=f 
ft 
io) 


i 
is] 


fA WH 
2 
0 


DFLAG ; DSR IN DFLAG 

H, TSTART ; SET UP INITIAL XMIT 
TNEXT , INTERRUPT ROUTINE 
OLBE ; POINT TO DATA TO TRANSMIT 
A.M ; GET COUNT 

OUTCOUNT 

3 

A,3 

3 

LBOP 


3 DISABLE INTERRUPTS 
INTFLAG 3; INDICATE TRANSMIT BUSY 
TXBUSY 


INTFLAG 

MSRSAVE ; IS CTS UP? 

CTS 

STARTTX1 3; DON'T ENABLE TRANSMIT INTRPT 
IER 3; YES, ENABLE TRANSMIT INTERRUPTS 
ETBEI 

IER 


3 ENABLE INTERRUPTS 
H,WAITTX ; WAIT FOR TRANSMIT TO FINISH 
TDISP 


INTFLAG ; TRANSMITTER INTERRUPTS ENABLED? 
TXBUSY 

7 YES, RETURN 
H,ACKTO 3; NO, SET UP FOR TIMEOUT 
WAIT 3; INITIALIZE ACKNOWLEDGE TIMEOUT 
H,WALTACK NEXT WAIT FOR ACKNOWLEDGE 
TDISP 


H,DFLAG ; IS DSR SAME AS BEFORE? 
MSRSAVE 


M 
DSR 
WAITACK1 : NO, BLOCK ACKNOWLEDGED 
WAIT 3} YES, DECREMENT TIMEOUT COUNT 
H 
WAIT 
A,H 3} IS TIME OVER? 
L 
: NO, RETURN 
H,STARTTX ; YES, TIMED OUT, SO SEND AGAIN 
TDISP 


H,WAITLIP 


3 GOOD ACK, GET ANOTHER BUFFER 
TDISP 3; FROM LIP 


